home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QBasic & Borland Pascal & C
/
Delphi5.iso
/
Basic
/
doc
/
Visual Basic
/
Image830.gif
< prev
next >
Tile
Graphics Interchange Format
|
1999-11-20
|
328.1 KB
|
660x671
|
8-bit (161 colors)
ocr:
TIpouenypa KOMMEHTOPHH Sub Combo2. Click() . Combo2.Enabled = False leakTMBM3ALMR CIMCKa UBETOB H Label2.Enabled = False u METKH C Ha3BAHHEM LBeTO - L Textl.Text Textl.Text 3anHcb Ha3BAHHS uBera B TEKCTOBOC Combo2.Text + Chrs(13) + ChrS(10) OKHO H TIOATOTOBKI HO3HLHH ma BBona cheayiouen CTPOKH - . If Combo2.Text = "KpacHblH Then IIponepka BblbpaHHoro UBET M3 CIHCKA Label8.BackColor = KOn uBeTa M, B 3BMCHMOCTH OT BbiopaHHoro Elsclf Combo2.Text = "Besbii" Then uBeTa, H3MCHEHHC uBera $poHa METKM C Label8.BackColor = Kon usera HO3BAHHCM a LBeTe (KOIBI LBETOB Elself Combo2.Text = "YepHBIR npMBCACHB ...
